home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
TKEd
/
rexx
/
Delete-until-Line.tked
< prev
next >
Wrap
Text File
|
1992-06-12
|
1KB
|
37 lines
/**
** ARexx program to delete from the current line down until a specified
** word is found
**
** © Tom Kroener '92
**
**/
LF = '0A'X /* Linefeed */
options results
address 'TKEd.1' /* Portname of the first started TKEd */
GetNumber "Enter last line" /* Get the linnumber of the last line to
delete */
End = result
GetLineNr /* Get number of the current line */
Start = result
Mark /* Beginto mark the block to delete */
DO WHILE Start <= End /* Marks until it reaches the last line
to delete */
Cursor "DOWN" /* Goto next line */
Start = Start + 1 /* Increment linecounter */
END
Request2 "Delete marked block" LF "Are you sure?" /* Request the user */
IF result = 10 THEN /* Cancel: Unmark and exit */
DO; UnmarkBlock
EXIT 10
END
Delete /* OK : Delete block */
EXIT 0 /* ciao */